home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / BBS / SECOND_SIGHT / Waldo3.SEA / WaldoStuff / WaldoHelp / background_2659.txt < prev    next >
Text File  |  1992-04-20  |  2KB  |  93 lines
  1. -- background: 2659 from stack: in
  2. -- bmap block id: 3934
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on StartEditing
  8.   global theButton
  9.   set cursor to watch
  10.   set the lockText of bg fld 1 to false
  11.   Show cd btn "Hide Buttons"
  12.   set the highlight of cd btn theButton to true
  13.   -- put empty into bg fld 1
  14.   put the script of cd btn theButton into temp
  15.   put line 16 to (the number of lines in temp) of temp into bg fld 1
  16.   show bg btn "Click HERE   to End Editing"
  17.   exit to HyperCard
  18. end StartEditing
  19.  
  20. on other
  21.   global theButton
  22.   put empty into bg fld 1
  23.   hide cd btn "Hide Buttons"
  24.   set the style of bg fld 1 to transparent
  25.   set the highlight of cd btn theButton to false
  26.   set the lockText of bg fld 1 to true
  27.   hide bg btn "Click HERE   to End Editing"
  28.   exit to HyperCard
  29. end other
  30.  
  31.  
  32. -- part 1 (field)
  33. -- low flags: 07
  34. -- high flags: 0000
  35. -- rect: left=25 top=23 right=155 bottom=485
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 2
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: 
  44. ----- HyperTalk script -----
  45.  
  46. on mouseWithin
  47.   if the visible of bg btn "Click HERE   to End Editing" = false then
  48.     put return&return&"                   This field displays information about Buttons"&return&return& "                       when the hand cursor is over a Button." into bg fld 1
  49.   end if
  50. end mouseWithin
  51.  
  52. on mouseLeave
  53.   if the visible of bg btn "Click HERE   to End Editing" = false then
  54.     put empty into bg fld 1
  55.   end if
  56. end mouseLeave
  57.  
  58.  
  59.  
  60. -- part 2 (button)
  61. -- low flags: 80
  62. -- high flags: C003
  63. -- rect: left=35 top=160 right=177 bottom=426
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Click HERE   to End Editing
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   global theButton
  75.   -- debug checkpoint
  76.   -- VW
  77.   if bg fld 1 is empty then other
  78.   put the script of cd btn theButton into temp
  79.   repeat with counter = 16 to (the number of lines in temp)
  80.     delete last line of temp
  81.   end repeat
  82.   put return&bg fld 1 after line 15 of temp
  83.   put empty into bg fld 1
  84.   set the script of cd btn theButton to temp
  85.   hide cd btn "Hide Buttons"
  86.   set the lockText of bg fld 1 to true
  87.   set the style of bg fld 1 to transparent
  88.   set the highlight of cd btn theButton to false
  89.   hide me
  90. end mouseUp
  91.  
  92.  
  93.